Public Class Persones
    Public m_nif As String
    Public m_nom As String
    Public m_cognom1 As String
    Public m_cognom2 As String

    Public ReadOnly Property NomComplert() As String
        Get
            Return m_nom & " " & m_cognom1 & " " & m_cognom2
        End Get
    End Property


    Public Sub New(ByVal nif As String, ByVal nom As String, ByVal cognom1 As String, ByVal cognom2 As String)
        m_nif = nif
        m_nom = nom
        m_cognom1 = cognom1
        m_cognom2 = cognom2
    End Sub

    Public Sub New()

    End Sub

End Class
